(clear-abbrev-table): Always return nil (Bug#2515).

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index 0e8b2cf9e8a0925568fb58d1d55a20cd1e767ef8..5b4ffe3ae8f63722edb1701013af8ab12ef5e6ba 100644 (file)
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -521,7 +521,8 @@ the current abbrev table before abbrev lookup happens."
       (set newsym nil)      ; Make sure it won't be confused for an abbrev.
       (setplist newsym (symbol-plist sym)))
     (abbrev-table-put table :abbrev-table-modiff
-                      (1+ (abbrev-table-get table :abbrev-table-modiff)))))
+                      (1+ (abbrev-table-get table :abbrev-table-modiff))))
+  nil)
 
 (defun define-abbrev (table name expansion &optional hook &rest props)
   "Define an abbrev in TABLE named NAME, to expand to EXPANSION and call HOOK.